home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / CURSOR.ZIP / CURSOR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-16  |  900 b   |  33 lines
  1. Unit Cursor;
  2. interface
  3. const
  4.     UlCursor = $0623; { '_' : Underline Cursor  }
  5.     OsCursor = $000A; { '█' : Overstrike Cursor }
  6.     NoCursor = $2000; { ' ' : No Cursor         }
  7.     HaCursor = $0E0A; { '▄' : Half Cursor       }
  8.  
  9. procedure SetCursorScanLines(TopScan, BotScan : Byte);
  10. procedure SetCursor (NewCursor: Word); { Sets Both Top (High byte) and Bottom (low byte)}
  11.  
  12. implementation
  13. uses DOS;
  14.  
  15. procedure SetCursorScanLines(TopScan, BotScan : Byte); { pass them separately as bytes }
  16. var
  17.     REG : Registers;
  18. begin
  19.     with REG do
  20.         begin
  21.             AH := 01;
  22.             CH := TopScan;
  23.             CL := BotScan;
  24.             Intr($10, REG);
  25.         end;
  26. end; { procedure SetCursorScanLines }
  27.  
  28. procedure SetCursor (NewCursor: Word); { pass them as one word }
  29. begin { this procedure only works with Turbo Pascal 7's Hi & Lo functions }
  30.     SetCursorScanLines(Hi(NewCursor), Lo(NewCursor));
  31. end; { procedure SetCursor }
  32. end.
  33.